home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
newask.zip
/
NEWASK.PPS
< prev
Wrap
Text File
|
1993-02-16
|
2KB
|
67 lines
string Answer,WhichMag,Referral1,Referral2,Software,Features1,Features2,AlphaNum
AlphaNum = " 0123456789.,;abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
println "@CLS@@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
println "@X38│ @X3EIn researching the BBS market we are interested in finding out where or how @X3B│@X07"
println "@X38│ @X3Eyou learned of PCBoard software or this BBS. @X3B│@X07"
println "@X38│ @X3B│@X07"
println "@X38│ @X31If you could volunteer that information it would be appreciated. @X3B│@X07"
println "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
println ""
Answer=NoChar()
inputyn "Have you seen our advertisement for PCBoard software in a magazine",Answer,0Eh
println
if (upper(left(Answer,1)) <> YesChar()) goto how
inputstr "Which one",WhichMag,0Eh,60,AlphaNum,2+64+128
fputln 0,"Q: Which magazine?"
fput 0,"A: "
fputln 0,WhichMag
:how
println
println "@X0EHow did you hear about PCBoard, or from whom? (2 lines)"
input "",Referral1
println
input "",Referral2
println
fputln 0,"Q: Referral Line 1"
fput 0,"A: "
fputln 0,Referral1
fputln 0,"Q: Referral Line 2"
fput 0,"A: "
fputln 0,Referral2
:askbbs
Answer=NoChar()
println
inputyn "Do you currently run a BBS" ,Answer,0Eh
println
if (upper(left(Answer,1)) <> YesChar()) goto attract
inputstr "What software are you currently using",Software,0Eh,30,AlphaNum,2+64+128
fputln 0,"Q: Current BBS Software"
fput 0,"A: "
fputln 0,Software
:attract
println
println "@X0EWhat attracted you to PCBoard software? (2 lines)"
input "",Features1
println
input "",Features2
println
fputln 0,"Q: Features Line 1"
fput 0,"A: "
fputln 0,Features1
fputln 0,"Q: Features Line 2"
fput 0,"A: "
fputln 0,Features2
println
println "@X0FThank you for your responses."
println